
*Model 1
logit ecj_int1 c.sumcaseobs1 , vce(cluster case_celex)

*Model 2
logit ecj_int1 c.sumcaseobs1 c.netint  i.agproint i.agantiint i.freegoods_guum i.agri_guum i.freework_guum i.estab_guum i.services_guum i.capital_guum i.transport_guum i.compet_guum i.tax_guum i.socialprov_guum i.environment_guum i.consum_guum c.lastelectionpartycompetition c.eu_support i.court_size i.countrycode , vce(cluster case_celex)

*Calculating Predicted probabilities based on Model 2 (Figure 2)
margins, at(sumcaseobs1=(0 (0.01) 0.6))

*Model 3
logit ecj_int1 c.sumcaseobs1##c.netint, vce(cluster case_celex)

*Model 4
logit ecj_int1 c.sumcaseobs1##c.netint  i.agproint i.agantiint i.freegoods_guum i.agri_guum i.freework_guum i.estab_guum i.services_guum i.capital_guum i.transport_guum i.compet_guum i.tax_guum i.socialprov_guum i.environment_guum i.consum_guum c.lastelectionpartycompetition c.eu_support i.court_size i.countrycode , vce(cluster case_celex)

*Calculating Predicted probabilities based on Model 4 (Figure 3)
margins , at( netint=(-0.2 (0.01) 0.2) sumcaseobs1=(.06 .3333))
